with Ada.Text_Io; use Ada.Text_Io;
with Ada.Integer_Text_Io; use Ada.Integer_Text_Io;


procedure Multiplication is
begin
   for I in 1..10 loop
      for J in 1..10 loop
         Put(I*J);
      end loop;
      New_Line;
   end loop;

end Multiplication;

